home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Drum Tester < prev    next >
Text File  |  1998-10-26  |  686b  |  34 lines
  1. (def-orchestra 'orchestra
  2.    drums (hihat1 hihat2 snare bass riffsup)
  3. )
  4.  
  5. (def-section-timesheet intro
  6.    with 1/1
  7.    tonality mt-32
  8.    drums     "--------"
  9.    hihat1    "------- "
  10.    hihat2    "--------"
  11.    ;
  12.    ; beats
  13.    ;
  14.    beat 1/16 ; !---!---!---!---!
  15.    hihat1     "----------------" '(h) with '(65 55 45 75)
  16.    hihat2     " - - - - - - - -" '(i) with '(65 55 45 75)
  17.    bass       "-   -   -   -  -" '(a) with '(65)
  18.    snare      "  -   -   -  - -" '(d) with '(65 55 65 75 75)
  19.    beat 1/8t  
  20.    riffsup    "------                  " '(t r q) with '(30 40 50 60 70 80)
  21. )
  22.  
  23. (def-channel
  24.   drums 10
  25. )
  26.  
  27. (def-tempo 75)
  28.  
  29. (midiport :printer)
  30.  
  31. (play-file-p "drumtest"
  32.    drums '(intro)
  33. )
  34.